home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / t1BB.CCCC. b B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  91 lines
  1. 0 poke53265,peek(53265)and239
  2. 1 dimw$(300):poke53281,0:poke53280,0:poke650,128
  3. 2 fori=1to15:poke211,0:poke214,i:sys58640
  4. 3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  5. 4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  6. 5 goto10
  7. 7 poke53265,peek(53265)or16:return
  8. 10 forr=1to60:reada$:w$(r)=a$:next
  9. 11 poke211,0:poke214,17:sys58640:
  10. 12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
  11. 13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
  12. 14 print"[194][155]          [195][195][178][195] [176][195][195][174] [176]   [174][176][195]           [194]";
  13. 15 print"[194]            [194]  [171][195][195][179] [194]   [171][179]            [194]";
  14. 16 print"[194][155]            [173]  [173]  [189] [173][195][189] [189][173][195]           [194]";
  15. 17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
  16. 18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:gosub7
  17. 20 x=0:y=-1:
  18. 21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
  19. 22 geta$:
  20. 23 ifa$=chr$(13)then50
  21. 24 if a$="."andx<55thenx=x+15:goto21
  22. 25 if a$=","andx>0thenx=x-15:goto21
  23. 26 goto22
  24. 50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
  25. 51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  26. 52 poke631,13:poke632,13:poke198,2
  27. 53 printchr$(19);:end
  28. 100 data"                                      "
  29. 101 data" [166][166][166][166][166][166][166][166]                             "
  30. 102 data" [194]      [194]   [213][195][195][195][195][195][195][195][195][195][195][195][195][201]            "
  31. 103 data" [194]     [209][209]   [194]blablablabla[194]            "
  32. 104 data" [194]      [205]   [194] [213][195][195][195][195][195][195][195][195][195][195][203]            "
  33. 105 data" [194]      [175][205]  [194] [194]                       "
  34. 106 data" [194]      [194]  [213][203][213][203]                       "
  35. 107 data" [194]  [176][195][195][195][189] [206][203] [194]                        "
  36. 108 data" [194]  [173][195][195][195][174] [205][195][195][203]        l       k       "
  37. 109 data" [194]      [194]           l       l         "
  38. 110 data" [173][195][195][195][195][195][195][189]         a       a           "
  39. 111 data"                m       t             "
  40. 112 data"              s       +               "
  41. 113 data"                                      "
  42. 114 data"                                      "
  43. 115 data"[149] lost brain >[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> faayd "
  44. 116 data"                                      "
  45. 117 data"hi, na was sagst du jetzt ? ich hoffe "
  46. 118 data"dass dir die 2. ausgabe der pulp bes- "
  47. 119 data"ser gefaellt. sorry, dass ich so wenig"
  48. 120 data"zeit hatte, dir zu schreiben, aber die"
  49. 121 data"schule...                             "
  50. 122 data"noch ist deine antwort nicht eingetru-"
  51. 123 data"delt, aber kommt bestimmt bald. also  "
  52. 124 data"dann, bis bald mal.                   "
  53. 125 data"                                      "
  54. 126 data"                                      "
  55. 127 data"                                      "
  56. 128 data"                                      "
  57. 129 data"                                      "
  58. 130 data"[149] diablo >[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> nafcom "
  59. 131 data"                                      "
  60. 132 data"hi, diablo is talking now !!!         "
  61. 133 data"da dir die 1. ausgabe der pulp so gut "
  62. 134 data"gefallen hat, kommt jetzt der nach-   "
  63. 135 data"schlag, sprich die pulp #2.           "
  64. 136 data"noch sind keine lesertexte enthalten, "
  65. 137 data"aber dies wird sich ja hoffentlich    "
  66. 138 data"bald aendern. die deadline fuer #3    "
  67. 139 data"ist auf den 10. mai datiert. viel-    "
  68. 140 data"leicht schaffst du es bis dahin ein   "
  69. 141 data"paar texte zu schreiben ! thema ist   "
  70. 142 data"[il)l]egal. man hoert aehhm liest sich"
  71. 143 data"bald wieder. bis dahin                "
  72. 145 data"            dein (...) diablo / p.o.l."
  73. 146 data"[149] lb & dbl >[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> alle "
  74. 147 data"                                      "
  75. 148 data"wenn ihr uns texte schickt, gilt :    "
  76. 149 data"-alles koennt ihr schreiben, wir ord- "
  77. 150 data" nen es dann in die richtige rubrik ! "
  78. 151 data"-rassenfeindliches oder extrem belei- "
  79. 152 data" digendes wird zensiert !!! (logisch) "
  80. 153 data"-texte muessen mit dem voodoonoter 2.1"
  81. 154 data" geschrieben werden und duerfen eine  "
  82. 155 data" maximale laenge bis $2900 haben !    "
  83. 156 data"-auch eure adresse wird auf wunsch so-"
  84. 157 data" fort eingetragen !! und bleibt fuer  "
  85. 158 data" immer (hehehehe)                     "
  86. 159 data"-auch basicprogramme sind erwuenscht !"
  87. 160 data"-schickt alles zu lost brain / diablo-"
  88. 161 data"                                      "
  89. 162 data"                                      "
  90. 0 
  91.